home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr26
/
promptr1.zip
/
PMR.BAT
next >
Wrap
DOS Batch File
|
1993-05-22
|
8KB
|
256 lines
@echo off
echo off
rem ══╡ PROMPTER ╞══ (c) 1991 W. J. Ball (requires ANSI.SYS)
IF %1%2%3%4%5TR==TR GOTO menu
ECHO
IF %1==save GOTO save
IF NOT %1==1 IF NOT %1==0 ECHO "%1" is an invalid option. Use "0" or "1".
IF NOT %1==1 IF NOT %1==0 GOTO end
GOTO %2
:combine1
PROMPT %p1% $p $g
SET p1=
GOTO end
:combine2
PROMPT %p1% %3
SET p1=
GOTO end
:dog
set p1=$e[%1m O O$_ ∞ $_ $_ $e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:bat
set p1=$e[%1m ^ \ / ^$_ / \ ° ° / \$_ / " \ $_$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:cross
SET p1=$e[%1;37;45m═╬═$e[40m$_$e[45m ║ $e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:plane
set p1=$e[%1;37;44m ─┬φ┬─ $e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:cactus
SET p1=$e[1;31;40m $e[32m╓$e[37m$_$e[32m ╘╬╛$e[37m$_$e[33;41m▒▒$e[32;40m╜$e[33;41m▒▒$e[%1;37;40m
IF %3x==x GOTO combine1
GOTO combine2
:puppet
SET p1=$e[%1;37;40m $__/$e[36m█$e[37m\_$_ ≤ ≥ $e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:bug
SET p1=$e[1;33;40m !!!!!! ╔$_}═══$e[31m░░░░░░█$e[33m)$e[37m $p $_$e[33m ¡¡¡¡¡¡ ╚$e[%1;37m $e
IF %3x==x prompt %p1%
IF NOT %3x==x prompt %p1% %3
SET p1=
GOTO end
:spider
SET p1=$e[%1m (o^o)$_≤≤ " ≥≥$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:skier
SET p1=$e[%1;37;40m ⌠$e[31m$e[37m$_ │ $_ │ / $e[33m█$e[37m \/$_ │ \\$e[36m/$e[37m$_$e[36m // $e[%1;37m
IF %3x==x GOTO combine1
GOTO combine2
:music
SET p1=$e[%1;37;44m≡≡≡$e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:field
SET p1=$e[%1;37;42m┌╥╥╥╥╥┐$e[40m$_$e[42m└╨╨╨╨╨┘$e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:golf
SET p1=$e[%1;33;40m $e[37m│ °$_$e[36m██$e[32m▒$e[37;42m│$e[40m$_$e[32m▓▒█$e[37m⌡$e[32m█$e[37m$_$e[32m ▒██▀$e[%1;37m
IF %3x==x GOTO combine1
GOTO combine2
:fish
SET p1=$e[%1;33;44m α$e[37m α .:$e[40m$_$e[32;44m║│$e[31m ««$e[37m α$e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:butler
SET p1=$e[0mô ô$_ $g $_$e -- $_$e[7m══$e[0;%1m
IF %3x==x GOTO combine1
GOTO combine2
:disco
SET p1=$e[%1m \ $_ $e[33;40m█$e[37m /$_ $g$g $e[%1
IF %3x==x GOTO combine1
GOTO combine2
:movie
SET p1=$e[%1;36;40m ░$e[37m$e[36m░░░$e[37m$e[36m░░$e[37m$_$e[0;37;40mºººª ºª ºº$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:flame
SET p1=$e[1;31;40m·.∙:$b▒▓$e[43m▓██$e[33m█▌$e[34;40m│$e[%1;37m
IF %3x==x GOTO combine1
GOTO combine2
:blank
SET p1=$e[0;37;40;%1m
IF %3x==x GOTO combine1
GOTO combine2
:color1
SET p1=$e[1;33;41m░▒▓█$e[44m█▓▒░$e[37;40m$_$e[31;44m█▓▒░$e[34;41m░▒▓█$e[%1;37;40m
IF %3x==x GOTO combine1
GOTO combine2
:color2
SET p1=$e[1;36;42m░▒▓█$e[45m█▓▒░$e[37;40m$_$e[32;45m█▓▒░$e[35;42m░▒▓█$e[%1;37;40m
IF %3x==x GOTO combine1
GOTO combine2
:tree
SET p1=$e[%1m ° °$_° ° °$_ \││/°$_ ││ $_ ∩∩∩∩∩∩ $e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:canada
SET p1=$e[0;31;40m▐$e[47m▌▐$e[40m▌$e[%1;37m
IF %3x==x GOTO combine1
GOTO combine2
:window
SET p1=$e[0m╔$e[1m═╦═╗$_$e[0m╠═╬$e[1m═╣$_$e[0m╚═╩═$e[1m╝$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:vball
SET p1=$e[%1m┌Ω──────┐$_│ Ω ° Ω│$_║$e[7m▄▄▄▄▄▄▄$e[0;%1m║$_│Ω Ω │$_└───Ω───┘$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:tribe
SET p1=$e[%1;31mó$e[37m\ / $_ $e[33m▓$e[37m / $e[35m▓$e[37m \│$_ ≤ ≥ ≤ ≥ │$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:oasis
SET p1=$e[1m) .· ·$_· $e[32mτττ$e[37m·$e[32mτ$e[37m$_$e[33;41m▒▒$e[0;37;44m ) $e[1;33;41m▒▒$e[%1;37;40m
IF %3x==x GOTO combine1
GOTO combine2
:museum
SET p1=$e[%1m____╔╦════╦╗____$_║■║■║║ ▒▒ ║║■║■║$_▀▀▀▀▀▀≡≡≡≡▀▀▀▀▀▀$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:taj
SET p1=$e[1m _(^)_ $_║ $e[7m░∩┌-┐∩░$e[0;1m ║$_║ $e[7m░∩│▓│∩░$e[0;1m ║$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:jazz
SET p1=$e[%1m $_√°$_≤≤$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:bldg
SET p1=$e[%1;37;41m╔╤╤╤╗$e[40m$_$e[41m║■■■║$e[40m$_$e[41m║■■■║$e[40m$_$e[41m║■∩■║$e[%1;40m
IF %3x==x GOTO combine1
GOTO combine2
:devil
SET p1=$e[%1;36m\ /$e[37m$_$e[31m° °$e[37m$_ '`$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:castle
SET p1=$e[%1;37;40m $e[33m╕$e[37m $_ ║$e[7m▀∩▀∩▀∩▀$e[0;%1m║$_$e[36m▄$e[37;%1m║$e[7m░■░▓░■░$e[0;%1m║$e[36m▄$e[%1;37;40m
IF %3x==x GOTO combine1
GOTO combine2
:tach
SET p1=$e[%1;37m 5 7$e[33m▄$e[37;40m$_$e[37m3 $e[33mo$e[37m─$e[30;41m▌$e[37m9$e[40m$_$e[37m 1 0 $e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:specs
SET p1=$e[%1m-o-o-$_ ≥ $e
IF %3x==x GOTO combine1
GOTO combine2
:text1
SET p1=$e[1;45;37m $d $t $p $e[37;40;%1m$_
IF %3x==x prompt %p1%
IF NOT %3x==x prompt %p1% %3
SET p1=
GOTO end
:stars
SET p1=$e[0m∙$e[1;37m: ∙ $e[0;36mφ$e[37m ·$e[1m$_. $e[0m·$e[1m · $e[0m. $e[1m°$e[0;33m.$e[37m$_$e[0m_Ω_______$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:ship
SET p1=$e[%1m ┼ ┼ ┼ $_ ┼ ┼ ┼ __$_ \≡≡≡≡≡≡≡≡≡/ $e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:panels
SET p1=$e[%1m $e[35m▒████$e[37m$_$e[36m░▓▓$e[35;46m▓████$e[37;40m$_$e[36m░▓▓▓▓ $e[37;%1m
IF %3x==x GOTO combine1
GOTO combine2
:upc
SET p1=$e[%1m║││║▐│║│$_computer$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:text2
SET p1=$e[%1;36m\$e[33m\$e[36m\$e[37m $p$_ $e[36m\$e[33m\$e[36m\$e[37;%1m \
IF %3x==x prompt %p1%
IF NOT %3x==x prompt %p1% %3
SET p1=
GOTO end
:text3
SET p1=$e[%1;33m⌠⌠⌠⌠⌠⌠$e[37m $p$_$e[33m⌡⌡⌡⌡⌡⌡$e[37m $e[%1m
IF %3x==x prompt %p1%
IF NOT %3x==x prompt %p1% %3
SET p1=
GOTO end
:eyes
SET p1=$e[%1m( $e[36mo$e[37m) ( $e[36mo$e[37m)$e[%1m$_
IF %3x==x GOTO combine1
GOTO combine2
:france
SET p1=$e[%1;34;40m█$e[37m█$e[31m█$e[37;%1m
IF %3x==x GOTO combine1
GOTO combine2
:italy
SET p1=$e[%1;32;40m█$e[37m█$e[31m█$e[37;%1m
IF %3x==x GOTO combine1
GOTO combine2
:money
SET p1=$e[%1;32m$$ $e[36m£ $e[35mFr$e[37m$_ $e[33m¥ $e[31m¢ $e[37;%1m
IF %3x==x GOTO combine1
GOTO combine2
:godzil
SET p1=$e[%1;32m $e[37m$_$e[32m $e[31m°{$e[37m$_$e[32m $e[33m ═ε$e[37m$_$e[32m $e[32m/ )_$e[%1;37m
IF %3x==x GOTO combine1
GOTO combine2
:tennis
SET p1=$e[%1;37;42m┌Ω┬─┐$e[40m$_$e[42m╞═╪═╡$e[40m$_$e[42m└─┴Ω┘$e[40;%1m
IF %3x==x GOTO combine1
GOTO combine2
:hypo
SET p1=$e[%1m│═══│$e[36;40m░$e[37;46m.~·°≈$e[40m$g--$e[%1m
IF %3x==x GOTO combine1
GOTO combine2
:save
IF %2x==x ECHO You must supply a file name to save prompt.
IF %2x==x GOTO end
IF %3x==x IF EXIST %2.bat IF NOT EXIST %2.bak RENAME %2.bat %2.bak
IF %3x==x IF NOT EXIST %2.bat IF EXIST %2.bak ECHO Previous file %2.baT renamed to %2.baK
IF NOT %3x==x IF EXIST %3%2.bat ECHO %3%2.baT already exists. Please rename or delete, then save.
IF NOT %3x==x IF EXIST %3%2.bat GOTO end
IF EXIST %3%2.bat IF EXIST %3%2.bak ECHO %3%2.baT %3%2.baK both exist. Please rename or delete one, then save.
IF EXIST %3%2.bat IF EXIST %3%2.bak GOTO end
echo echo off>>%3%2.bat
echo rem created by ═╡ PROMPTER ╞═ (c) 1991 W. J. Ball>>%3%2.bat
echo PROMPT %prompt%>>%3%2.bat
echo Current prompt saved. Type "%3%2" to restore it.
GOTO end
:menu
cls
echo ═══╡ PROMPTER ╞═══════════════════════╡ OPTIONS: │ display │ move cursor
echo (requires ansi.sys) │ │ │
echo PICTURES: │ text, or │ $$ $ │ $e[#A up #
echo │ │ $t time │ $e[#B down #
echo bldg eyes movie text1 dog │ colors (F)(B) │ $d date │ $e[#C space#
echo bug field music text2 jazz │ $e["#"m: │ $p dir │ $e[#D back #
echo cactus fish oasis text3 museum │ │ $v DOS │
echo canada flame panels tribe specs │ 30 40 Black │ $n drive │ attributes
echo castle france plane spider │ 31 41 Red │ $g ≥ │ $e["#"m:
echo color1 godzil puppet (mono): taj │ 32 42 Green │ $l ≤ │
echo color2 golf skier tree │ 33 43 Yellow │ $b │ │ 0 reset
echo cross hypo stars bat upc │ 34 44 Blue │ $q = │ 1 bold
echo devil italy tach blank vball │ 35 45 Magenta │ $h bs │ 5 blink
echo disco money tennis butler window │ 36 46 Cyan │ $e esc │ 7 reverse
echo │ 37 47 White │ $_ cr │ 8 invisible
echo ──────────────────────────────────────┴──────────────────────────────┬────────
echo type: pmr 0/1 "pic" "options" or: pmr save "filename" "directory"\ │ '91 WJB
echo
GOTO end
:end